Profile of (eval 207)[Sub/Quote.pm:3]

Filename	(eval 207)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 64 statements in 484µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
11	2	2	132µs	1.60ms	Method::Generate::Constructor::::newMethod::Generate::Constructor::new
1	1	1	16µs	46µs	Method::Generate::Constructor::BEGIN@5.68
1	1	1	6µs	6µs	Method::Generate::Constructor::BEGIN@10.69

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4					package Method::Generate::Constructor;
5	2	69µs	2	76µs	# spent 46µs (16+30) within Method::Generate::Constructor::BEGIN@5.68 which was called: # once (16µs+30µs) by Sub::Quote::_clean_eval at line 5 no warnings 'closure'; # spent 46µs making 1 call to Method::Generate::Constructor::BEGIN@5.68 # spent 30µs making 1 call to warnings::unimport
6					# spent 1.60ms (132µs+1.46) within Method::Generate::Constructor::new which was called 11 times, avg 145µs/call: # 10 times (117µs+1.46ms) by Moo::_constructor_maker_for at line 262 of Moo.pm, avg 158µs/call # once (15µs+0s) by Moo::_constructor_maker_for at line 177 of Sub/Defer.pm sub new {
7					($_QUOTED,$_UNQUOTED) if 0;
8					# BEGIN quote_sub PRELUDE
9					package Method::Generate::Constructor;
10					# spent 6µs within Method::Generate::Constructor::BEGIN@10.69 which was called: # once (6µs+0s) by Sub::Quote::_clean_eval at line 15 BEGIN {
11	1	1µs			$^H = 2018;
12	1	0s			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
13	1	5µs			%^H = (
14					);
15	1	289µs	1	6µs	} # spent 6µs making 1 call to Method::Generate::Constructor::BEGIN@10.69
16					# END quote_sub PRELUDE
17	9	1µs			my $invoker = CORE::shift();
18	9	8µs			my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
19	9	7µs			if ($class ne "Method::Generate::Constructor") {
20					if ($Moo::MAKERS{$class}) {
21					if ($Moo::MAKERS{$class}{constructor}) {
22					package Method::Generate::Constructor;
23					return $invoker->SUPER::new(@_);
24					}
25					Moo->_constructor_maker_for($class);
26					return $invoker->new(@_);
27					} elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
28					return $meta->new_object(
29					$class->can("BUILDARGS") ? $class->BUILDARGS(@_)
30					: $class->Moo::Object::BUILDARGS(@_)
31					);
32					}
33					}
34					my $args = scalar @_ == 1
35					? CORE::ref $_[0] eq 'HASH'
36	9	27µs			? { %{ $_[0] } }
37					: Carp::croak("Single parameters to new() must be a HASH ref"
38					. " data => ". $_[0])
39					: @_ % 2
40					? Carp::croak("The new() method for $class expects a hash reference or a"
41					. " key/value list. You passed an odd number of arguments")
42					: {@_}
43					;
44	9	12µs			my $new = bless({}, $class);;
45					(exists $args->{"accessor_generator"} and ($new->{"accessor_generator"} = $args->{"accessor_generator"})),
46					(exists $args->{"attribute_specs"} and ($new->{"attribute_specs"} = $args->{"attribute_specs"})),
47					(exists $args->{"construction_builder"} and ($new->{"construction_builder"} = $args->{"construction_builder"})),
48					(exists $args->{"construction_string"} and ($new->{"construction_string"} = $args->{"construction_string"})),
49					(exists $args->{"package"} and ($new->{"package"} = $args->{"package"})),
50	9	57µs			(exists $args->{"subconstructor_handler"} and ($new->{"subconstructor_handler"} = $args->{"subconstructor_handler"})),
51					return $new;
52					}
53	1	1µs			$$_UNQUOTED = \&new;
54					}
55	1	6µs			1;
56
57					;